home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / thinkref / archive / THINKC7.0.4Update.sea.hqx / EDS 7.0.4 Update / Library Updates.sea / Mac #includes / THINK #includes / pascal.h
Text File  |  1994-03-28  |  734b  |  35 lines
  1.  
  2. /*
  3.  *  pascal.h
  4.  *
  5.  *  Copyright (c) 1991 Symantec Corporation.  All rights reserved.
  6.  *
  7.  */
  8.  
  9. #ifndef __pascal__
  10. #define __pascal__
  11.  
  12. #ifdef __cplusplus
  13. extern "C" {
  14. #endif
  15.  
  16. //  these functions modify their argument in place - don't use with constants
  17. unsigned char *CtoPstr(char *);
  18. char *PtoCstr(unsigned char *);
  19. pascal unsigned char *C2PStr(char *);
  20. pascal char *P2CStr(unsigned char *);
  21.  
  22. #ifndef __cplusplus
  23. //  no longer needed - provided for backward compatibility
  24. pascal void CallPascal (...) = { 0x205F, 0x4E90 };
  25. pascal char CallPascalB(...) = { 0x205F, 0x4E90 };
  26. pascal int  CallPascalW(...) = { 0x205F, 0x4E90 };
  27. pascal long CallPascalL(...) = { 0x205F, 0x4E90 };
  28. #endif
  29.  
  30. #ifdef __cplusplus
  31. }
  32. #endif
  33.  
  34. #endif // __pascal__
  35.